a 


Bas 


FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 


) 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 


LOL LL LL LL LL LL LL LO LO LP LO LL LL LL 


SP 


**F ILE®*1D**F ORUDF WF 
FFFFFFFFFE © 000000 RRRRRRRR UU UU DDDDDDDD  sFFFFFFFFFF ww WW FFFFFFFFFF ; 
FFFFFFFFFF = Q00000  RRRRRRRR UU UU DDDDDDDD  FFFFFFFFFF ww WW FFFFFFFFFF : 
FF 00 00 RR RR UU UU DD DD FF WW WW FF ; 
FF 00 00 RR RR UU YU DD DD FF Wd WW FF | ; 
FF 00 00 RR RR UU UU DD DD FF WW Ww FF | : 
FF 00 00 RR RR UU UU DD DD FF WW WW FF | ; 
FFFFFFFF 00 00 RRRRRRRR UU UU DD DD FFFFFFFF WW WW FFFFFFFF ; 
FFFFFFFF © 00 O00 RRRRRRRR UU UU DD DD FFFFFFFF WW Ww FFFFFFFF ; 
FF 00 00 RR RR UU UU DD DD FF WW WW WW FF | ; 
FF 00 00 RR RR UU UU DD DD FF WW WW WW FF : 
FF 00 00 RR RR UU UU DD DD FF WWW WWW FF _— ; 
FF 00 00 RR RR UU UU DD DD FF WWW) WWW FF foo ; 
FF 000000. ~=Ss RR RR UUUUUUUUUU DDDDDDDD «FF wid WW FF 2 ; 
FF 000000 ~=s RR RR UUUUUUUUUU DDDDDDDD ‘FF wld WW FF neh. : 
LL HII SSSSSSSS : 
LL H1111 55555555 | ; 
LL 11 SS : 
LL I] 55 | : 
LL 11 55 ; 
LL I] $$ ; 
LL 11 SSSSSS ; 
LL 1] 555555 | ; 
LL II SS | P 
LL 11 5S : 
LL 1] 55 3 
LL 11 5S | F 
LLLLLLLLLL JIIIII  SSSSSSSS : 
LLLLLLLLLL §=©>sPI)©=©=—SsSSSSSSSS | 3 
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FORSSUDF _WF FORTRAN Write Formatted UDF 


MODULE FORSSUDF _WF Sp ge ean Write For 
IDENT = ‘2=058' ! File: FORUDFWF.B32 Edit: SBL2058 


BEGIN 


PASE ESESOSLOSI SECS SE SET ET EPCS CCPC CCC ec Cece cece cece ect c cect ric i cic i ii ias) 
' 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


* 
* 
a 
® 
it THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie Y IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
iw OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. “ 
' * 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
ie AND SHOULD NOT BE CONSTRUED AS A COMMIT . 
is CORPORATION. ® 

* 

* 

* 

® 

® 

* 


T 
MENT BY DIGITAL EQUIPMENT 


'* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


lee 
! FACILITY: FORTRAN Support Library - not user callable 
i ABSTRACT: 


This module implements FORTRAN Write Formatted 1/0 
statements (sequential access - S, direct access - D, 
ENCODE = M) at the User data Formatter Level of 
abstraction (UDF level is 2nd level). This module 
calls the Read/Write vONTReS) to format 

interpreter (FORSSFMT_INT 

statement. This modulé calls the appreeripte write record 
routine at the record handling level of abstraction (REC 
level is 3rd level) to write a record. 


Px) to decode the compiled format 


i ENVIRONMENT: User access mode; reentrant AST level or not. 
i AUTHOR: Thomas N. Hastings; CREATION DATE: 20-Feb-77 


{| MODIFIED BY: 
homas N. Hastings, 12-Mar-77: _vorgien 01 
Richard Grove, 19-Aug-77: Vers 
Previous edit history Rem seg SBL "TeNov-1982) 
-049 - Instead of checking for a zero ELEM_SIZE to determine an 
erg-or et tee call from FoRS + Pa Use : sere CLE. Lia 
gore; en ring to be formatted properly. 
SPR 1teSO1S7. SBL 2aeMey 1980 ra 
; $7020 - Convert PORSSERT. 1afRey” to eB Linkage. 29-Jul-1981 JAW 
! 2-051 - Use non-character moves when possible to fill buffer to high- 
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SSUDF _WF FORTRAN Write Formatted UDF 1b-5 Sep-1984 AX-11 Bliss-32 V4.0-74 
5 1 Sep-1984 99: 3): 3 FORRTL.SR RCIFORUDFi WF .B $351 (1) 
water mark, ave idin BLANK _FILL 


a ocaht to JAW 29-Jul-1981 
$-82 - Correct error ¥n edit JAW 05=Au g-1981 
-055 = Combine handling of holterith re iebeenctits to get th 
benefit of non-character moves for Hollerith, and recast CASE 
for slightly better code. JAW 05-Aug-1981 | 
2-054 = Add require file FORMSG.B32 in preparation for enhanced error | 
reporting. JAW 10-Aug-1981 
2-055 = Check for zero-length weit before changing the carriage 
control character in DO_WRITE. JAW 10-Aug-1981 
2-056 - Set 138sv. a for format codes Xé and XG. SPR 11-38351. | 
“Au 
2-057 - Ignore $ 9; carriage control is not FIN. JAW 28-Aug-1981 
2-058 - Reflect changes needed for separate FORRTL shareable image, Primarily, 
ee as? * ca hr tables for the conversion routines. 
- ove 


Be Se Se ee Ge Ge Be Se Ge Ge See Se Se Ge Se eee 
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De Be Oe Be Be Be Se Se Oe Be Be Be Be Be Se Se Be Ge Se Se Ge Se Se SH Se Se Se Se Se Se Ge Se Fe Se Se Se Se Se Se Se ae Fe Se Se Seas Fe Sees Fe ee Sete Ge Se teas 


M11 


A (E, W. D, NDX) = | 
(E*7 + W*6 +D*5 + NDX)2; 

! 

i EQUATED SYMBOLS: 

NONE 

; OWN STORAGE: 


FORSSUDF _WF FORTRAN Write Formatted UDF 16-Sep-1984 00:34:15 AX-11 Bliss-32 V4.0-74 Page 3 
2-058 14-Sep-1984 12:32:52 FORRTL.SRCJFORUDF WF .B32;1 (2) 
77 p076 . 
78 0077 1 ! PROLOGUE FILE: 
79 0078 1! 
80 0079 1 
81 0080 1 REQUIRE ‘RTLIN:FORPROLOG'; ' FORS$ definitions 
B¢ 0146 1 SWITCHES ZIP; ! Optimize for speed 
8 0147 1 
84 0148 1! 
85 0149 1 ! TABLE OF CONTENTS: 
86 0150 1! 
87 0151 1 
88 8 ¢ 1 FORWARD ROUTIN = ek ‘ 
89 1 FORSSUDF _WFO : JSB_UDFO NOVALUE, ! initialization : | 
90 0154 1 FORSSUDF_WF1 : CALC CCB NOVALUE, ! format one user I/0 List element 
91 0155 1 FORSSUDF"WF9 : JSB_ODF9 NOVALUE, ! end of user 1/0 list = finish 
i) 0156 1 BLANK_FICL, ' fill string with blanks 
y 0157 1 MOVE CHAR : NOVALUE, ! move characters 
Be 0 8 ! DO_WRITE : JSB_DO_WRITE NOVALUE; ! do per-record formatting and write 
96 8 . 44 
97 0161 1 | MACROS: | 
gitg 1: 
0 1 ; ie | 
0164 1 MACRO ! Field definitions for action table 
M0165 1 WF_EOLST = OS 
0166 1 0,7,1,0% ! Check for end of user i/o List 
M0167 1 WF“ CHECKW = ; 
0168 1 0,6,1,0%, ! Check there are w postions available in output buffer 
M0169 1 WF_SETDSC = 
0170 1 0650108 ! Set up a string descriptor for output field 
mO171 1 WF _DISPAT = é 
§ ! 0,0,4,0%; ! CASE index for dispatch 
4 3 ‘ MACRO ! Attributes-packing macro for attributes table 
0176 +1 
0177 1 
0178 #1 
0179 +1 
0180 1 
0181 1 
0182 1 
0183 1 
0184 «(1 
0185 1 
0186 1 
0187 1 
0188 1 
0189 1 
0190 1 
a | 
3 | 
4 1 
0195 1 
0196 1 
0197 1 


ad cl ce cae cee ce cee ce ce cet a ca ce ce ce ce cnt ce cae cath ce a ce aed ee ca co cd ce eet ce cet ce ct cae ed ce ee a ce ce ce ce eee ed ee ee ee 
DWOOOO OO OW W000 00 090009 09 SII NII NS NN NN NS SA AA AAA AAA AUIS 


OE TE ee 
WWAAPOPDPONININIPYNYNIDD 2 9 OS SS — COOCOOTVOCOOOCOCOCONO 
BSS OOO NONE WN HOODNAUE WN SHOOW NOMEN ODO 


BIND | 
WF_ACT = ! Action table for UDF_WF1, UDF_WF9 format codes 
UPLIT BYTE( 
1 ecs 
: OHE 
: Ler 
: $ CD 
T . S 
act 0.9, 6}. ! ER = 0, ! 00 ' format syntax error . 
A(0,0,0, 0), ' oP st, ! 01 ! ( = format reversion point 


Re Be Be Be Oe Ge Be Be Se Be Be Oe Se Be Be Se Se Se Se Ge Se SHS Se Se Se Be BESS Se HSH Se Se Se Se Oe Se we Se SH Se Se Se Se Se Se ee Se Sete 


ww PR eS eS SHES SS HES HS HS HS HSS TS OSHS SHS HS eS ee "SHS eS se sSsS*S*S SHS FS re tS FS *S FS FS FS FS SS SESS SS SSSA “SS FSS CSCS SSS SSeS te 


am oS 
N o 
~ °o 
— 
aw 
o ry 
® a 
a wo 
.s) 
pnd 
aw 
au 
a 
~~ 
a ~ 
wo nw ~ 
o — @e 
- Ee ~ Ee 
ee aa i cod 
wm CC - o ss 
reo 8 69O Os oo - & 
~o@w cco ~ = 
'- Dow ~o ¢ 6 
ou c o - 
zs een ~& - 
Tru 800 @ = - c 
>a e868 ce o eo. .m60° ~ 
—_ aac “eens cd Yer at 
Nac eo = .s) omsn c 
MO cq co ea ~c Er o 
io » oor + no Vv eo tv 
nn ee ww oe cre —_ Evcwe o 
ov OCOeres Cc ww Ewc - c w ~ oer & © 
“—c QBeOeuewr sar or c ~ & oe o~- a wo 
—” cc E@GCE @ —~et ws 5 € _——— = 
@M-+ S6@wrtcanme wv oeouc ef c - ~ Ow eo £.j0——™ 4wwvuo 
—~ ttooer-e ww vw," © 0 -OO c— tv wctw~ = 
——- sec ununw ~~ ~er- or oe ow ®eoono OC Me eee SP eww 
} -e=& aa wencosw ~tvo SvL~ OTD xe cy OO atatwatat atutatad 
‘ac Uy Otes- e8M~ FBHv eo £7 8008 -voeo —wt agaaas s2aaa 
«xO ##—O004@8C Cc Ca we 20ao0 AaAdwwx uNUO eon00886 8606000 
<u +f 3a OKO MOOr-i a eefltl —Ovuce CC eee © he 
> eo MOU LV——] -6 x a 68 £0 Tt tree’ ooo e28ooneu8 e208 
| —- £ CeOO TMV EN = wus wovvTvTST vUUU 
& wwerow @® vcs ‘eto t+rrr+r.rEeEeEeEe vVCUVVUUD 
t treotruor &H °o RR. * *“e* DO Feuvus pees 
t@eeees = vet cc~ 3BEBBEsEBEEEseE BEBBEBENU 
ru - OD Qacexirs oO cc ZiOeNORK—™s 4eWHUOWUOWHW fIu0OR—™N 4wWUO 
wn c= On ame eehed Hr ESSE ECE ECE ©ececcees ceccec cece 
| CON es Beemer ees Po ne << — ee eet ee Qi remem res eemceres 
| we) — ne c i 
j oo oe ao -— = a «a 
} orm = ~ £ito @ 
o- _ 2 - = wn w 
| wr STNOFrF, «YO Wk “ TWOr-DOOaeOv wwe wMOe OBMOvLVQ cMmsn 
wr OC0O-0000 GO coo:wn# Se he el el el ee el ee OO ol a ea 
| aoco ws a w@s me °o 
DO meme ew rere eee er ee ee ee eee DQ emer rms er mtmres 
--— oO w oo-s 
i] 4 2e fe o om o 
aa - n we z cw w 
| —-ewo w - = e 8 Be) ~ ses sees see 8 “— o« - 
| -—mwn sy 8 8 8 NM TINY OSLODO OF CM TMOR-DOOK- TUM TM BORK TM TNOOeKtwUnM 


Table of conversion routines for integers, indexed by format code (L,0,1,2). 


25> a) ae Oa ae | aad | aaeaner OSE aIT rae He Te we Ooms TIT TON 
a 7 a) 
| -— nuznuunnn nunounzoe Hwnonnnnnnnnn penn t— nono nun 
| w a 2 ws-coO 2 a oa oO 
= ws oe = ww eo ua mw ad 
z wn” zn ” ” “” 
Qo —u Maz a —— @> a —_ o5D< JOS N™NSDeWOS 
a <O4IIJIZOr ££ MITE C OS IFCCS UO MNO SN Zu WOUOWUO LC ZOOOOOZ0A000G 
S2r-BZwmwovrr tke | CoM reer ttt) titiomeD i:;iowxexeDititiornterbs 
| + 
0—™” 
| >» ee @ .*- * > * >. * ets © © & & — & & & * 2. © © & & * ses © &@ & ese = tus *e 
| ana RRR OR RO OR ar AAA AAAARAR AARRAA AAA BAAer 
CO -<-NO SCO sr COO OR-cO000000000200 BAA AOAO ooocce oooo> - 
ss esses se ees es ss ses ess es 8 sees ese se ee ees 8® ees ee es 
oOo OOOOCOoOoOO OO oO OCOTrKKrKr KKK Keer — BDOCOCOCCOOCOOO + 
es. ese es es see e. es: sees es se eee sess ee esses 8 8 88 8 8 wy 
oOo OOOOCOOCOO -—- oO Ofer KrKrKrK KK Keren — BDOCOCOCOOCOCOOCOOM - 
es. ees @ ese 8s 8 8 es . ses ses 8s ® se see ees ese ese 8 & esses es ® se 8s ses 8s 8 OS SS 
| “ oOo -—O0O-COOoOOoO OO OOO SKK Kr KKK KK Kerr K— COernrnr Cee and 
Qa ~~ ~~ ee ee ~~” ~~ ~w eee ee ee ee ee ee ee ee ee ee oN ee ee ee ee wwe we we _— 
| a) —_ oo 
wy ivy) 
ot > u 
- 
} ao -“_ WwW 
| §£ . 
i= ~ —, 
j oS < 
— a 
j “” 
i a 
Ea a 
| - 4 2 
| . -_ + ‘ za 
| 3 @ ome t= ] 
| 
j | LLL LLL LLL LL SE ENC OC OC OC OC OC OC OK 
| 
| a 
- DAOD—VUMTNOR- DHOD— CUM TWN OR. DRO MUM TN OR. OBO CUM TMNOR. OBO MUM TMNOR. OPO TUM TF 
| < be ado eee we eel oe oo) - | ee eee ee hh Lh La a a a dd od ad ed edd hdd oe oe eA Oho oe 
| oO SE NOOO OOO OI OOO OS OS OSI OSI OI OOS OS OS OI OSI ONION IOI NONI OI NI NINO ONION ION OIONS 
vv OCOOOOOCOCOCOOOSOCOSOSOCOCOCOSOSSOSOSOCOSSOSOSOSSSCSSOCOSOSOSOSOSCOSSSOOSCOOCOCOCOOOOOCOoOO 
} 


FN OP-DROK— IMF NOR. ODOM UM SNOR OP ORK MMT OROPOKAUMTNORDOOK—UIM YH OR DOS 
AO MMMMMMS oF F SST TAA DOD DO DOD ODOR NARA ANA 00000000 00 000000 00.00. 


| 
| 
| a I eel ee el cel el el eh el ee el el ce lh el ee eh cl eh te eT ek el ek ek ek ee el ed 


ww FSS HPS TS HS HS HS ES HS HS HES HS HS HS HS HS HES HS HS HS HS HS HS HSS HSS HS HS FS Fe FOTOS FS *S SHS FS ESTOS FS PS SSO FCS STS STS Fete terartea*B tare 


Iter prenatal 


wie 


WAIN NWI NIN RINININNINID 2 3 2 PO SS DOO DCOOCOOCOOCOOOOOVOOOOWO 


SO AR ntd POOR AMOUR AN “ODO NOUEUWN HO ODNAME WW MODR NEAR WW ODDO Re 


Rononononononononononononononofonononononononononononononofonononononononononono nono nonononunun 


Be Be Be Be Be Be Oe Se Fe Fe Se Se Se Se we Se Oe Ge Se Be Be Ge Be Se SESH Ge Se ae SHS Se BH Se Oe Oe Se He Se Se Se Se Be Ge Se Se Se Oe Oe G8 Os oe Oe HSH Ss ws 


Pe ar ot et et et et eh a) oh ed 


FORTRAN Write Formatted UDF 4 00:51:14 AX-11 Bliss-32 V4.0-74 Pa 5 
on 90530553 FORRTL.SRCIFORUDFUF -B3 37 or (2) | 


B 1 
6-$ 
4-S 


ow 


0255 1 AA_OUT_FIX: VECTOR (4, LONG); ‘ 
9589 | 

+ 3 
0258 1 ! Table of conversion routines for reals, indexed by datatype (F,D,G,H) and ‘ 
0259 1! by format code (F,E,G,D). Another table is used to map the DSC$K datatype ° 
8 ¢' : ; code into the index for this table. ; 
0 6 1 : 
0263 1 LITERAL : 
0264 1 TYP_F = 0, : 
0265 1 TYP_D = 1, : 
psee 1 TYP_G = ¢° : 
0267 1 TYP_H = 3, ‘ 
0268 1 FMT_F = QO, '- 
0269 1 FMT_E = 1, 3 
0270 1 FMT_G = ¢: ; 
0271 1 FMT_D = 3; : 
Os 7¢ 1 $ 
0273 1 UCTURE ‘ 
0274 1 FLT_ARRAY_ST CT, F; M, NJ = | ; 
0275 (1 CM*N*ZUPVAL ; 
0276 1 (FLT_ARRAY_ST+(T#*N+F) *ZUPVAL) ; : 
0277 1 3 
0278 1 OWN F 
0279 1 AA_OUT_FLT: FLT_ARRAY_ST (4,4); : 
0280 1 ; 
0281 1 !+ . 
0282 1 ! Table that converts DSCS$K datatype codes to TYP_ codes for addressing : 
0283 1 ! AA_OUT_FLT. : 
0284 1 !- ; 
0285 1 3 
0286 1 OWN : 
0287 1 DTP_TO_TYP: VECTOR CDSCSK_DTYPE_H+1, BYTE] PSECT (_FORSCODE) ; 
0288 1 INTTIAL (REP 10 OF BYTE(O), é 
0289 1 BYTE(TYP_F), 3 
0290 1 BYTE(TYP_D), : 
0291 1 REP 15 OF BYTE(O), : 
0292 1 BYTE (TYP_G) : 
0293 1 BYTE(TYP=H)5; ; 
0294 1 : 
0295 1 ObIN : 
0296 1 CVT_LINIT: INITIAL(O); ! Initialization flag : 
0598 | | 
0999 1 ! EXTERNAL REFERENCES: : 
0300 1! 3 
0301 1 F 
$44 1 EXTERNAL : 
0303 1 FORSSAA_REC_PRO : VECTOR, ! PIC array of record processor ; 
0304 1 ' procedure-initializations in REC : 
0305 1 ' level of abstraction. Indexed by ; 
9208 1 ' 1/0 statement type (1SBSB_STTM_TYPE) 3 
0307 1 FORSSAA_REC_PR1 : VECTOR, ! PIC array of record erpeonrer procedures : 
0308 1 ' Write a record in REC level o : 
0309 1 ' abstraction. Indexed by I/0 statement : 
B39 1 ' bype (1SBSB_STTM_TYPE) 3 
0311 1 FORSSAA_REC_PRO : VECTOR; ' PIC array of record processor procedures F 


view 


PASSA AAOSASMNNNMYVINVIVIE = OO 


POMIPIPENPSPOPONONNMNoPoNnononononynonononononofefnonone fv rerorrfery 
NRO DONA UES WN HO OONAUES WN O OONOUS WN —OOMWw 
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FORTRAN Write Formatted UDF 1$- -Sep- 1384 99: 3] ‘18 AX-11 Bliss-32 V4.0-74 Page 6 4 
14- ~Sep- é3 FORRTL.SRCJFORUDFWF .B32;1 (2) 
0 1 1 ; 
03135 1 ! Write last record in pec level of ‘ 
0314 1 ! abstraction. indexed by i/0 ; 
12 : ! statement type (i58$8_STTM_TYPE) ; 
) 13 1 EXTERNAL ROUTINE : 
0318 1 ORSSFMT_INTRPO : JSB_FMTO NOVALUE, ! initialize format interpreter ; 
0319 1 FORSSEMT “INTRP1 : JSB_FMT1 NOVALUE, ! get next data format code ; 
83 0 1 : or input-output format code ‘ 
0321 1 error # and SIGNAL ‘ 
0 ¢ 1 FORSSSIGNAL : NOVALUE, ! convert FORTRAN err # to ‘ 
0 1 ' VAX error # and SIGNAL ‘ 
0324 1 FORSSSIGNAL_STO : NOVALUE, ' convert FORTRAN err # to ‘ 
0325 1 ! VAX error # and SIGNAL_STOP : 
$358 1 FORSCVT_F_TD, ! F to text, D format ‘ 
0327 1 FORSCVT_F_TE, ' F to text, E format ° 
0328 1 FORSCVT_F_TF, ! F to text, F format : 
tT 1 FORSCVT_F_TG, ' F to text, G format ° 
0330 1 FORSCVT_D_TD, ' D to text, D format ‘ 
0331 1 FORSCVT_D_TE, ! D to text, E format ‘ 
Oea8 1 FORSCVT_D_TF, ' D0 to text, F format . 
0333 1 FORSCVT_D_TG, ' 0D to text, G format ‘ 
0334 1 FORSCVT_G_TD, ' G to text, D format ‘ 
0335 1 FORSCVT-G_TE, i 6 to text, E format ; 
0336 1 FORSCVT_G_TF, ' G@ to text, F format ‘ 
0337 1 FORSCVT_G_TG, ! G to text, G format ‘ 
0338 1 FORSCVT_H_TD, ' H to text, D format ‘ 
0339 1 FORSCVT_H_TE, ! H to text, E format ‘ 
0340 1 FORSCVT_H_TF, ' H to text, F format ; 
0341 1 FORSCVT_H_TG, ' H to text, G format ° 
Beeg 1 OTSS$SCVT_L_TL, ' L to text, L format ‘ 
0343 1 OTS$CVT_L_TO, ' L to text, O format ‘ 
0344 1 OTSSCVT_L_TI, ! L to text, I format ‘ 
btee : OTSSCVT_L_TZ; ! L to text, Z format : 


D 12 
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2-058 14-Sep-1984 12:32:52 FORRTL.SRCJFORUDF WF .B32;1 (3) 
: 284 47 1 GLOBAL ROUTINE FORSSUDF _wWFO ! Write formatted UDF initialization 
> 285 48 1 : JSB_UDFO NOVALUE = 
; 286 0349 1 
; 287 0350 1 !+4 
; 288 0351 1 ! FUNCTIONAL DESCRIPTION: 
; 289 0 26 1! 
; soy O27 } 1 Initialize Write Formatted User data formatter (UDF) 
; $3¢ 0355 i CALLING SEQUENCE: 
; $32 $389 1: JSB FORSSUDF_WFO 
: 295 bee8 1! 
; $39 O22 } : FORMAL PARAMETERS: 
; 298 O56) 1 | NONE 
; 300 036§ | IMPLICIT INPUTS: 
: 302 0365 1! CCB Pointer to current logical unit block 
3 305 0366 1! ISBSB_STTM_TYPE 1/0 statement type code = set by 
; ed $444 ! } each 1/0 statement initialization 
; 308 0369 1 | IMPLICIT OUTPUTS: 
: 307 0370 1! 
; 308 0371 1! LUBSA_BUF _BEG Adr. of first byte of output data buffer 
; 309 0372 1! LUBSA_BUF _PTR Adr. of next byte of output 
; 310 0373 1! data buffer : 
5 6a 0374 1! LUBSA_BUF _HIGH Adr. of high water byte in output buffer on this 
3 a8 0375 1! 1/0 statement 
ae) 0376 1! LUBSA_BUF _END Adr. +1 of Last char position allocated 
> 314 0377 1! to output buffer 
; 29 0378 1! AA_OUT_F IX Integer conversion routine addresses 
3 218 3 t4.4 ’ AA_OUT_FLT Floating conversion routine addresses 
; 318 0381 1 i ROUTINE VALUE: 
Ether ts (tes 
; 322 0385 i SIDE EFFECTS: 
: 388 0388 1 | — 
BR 
; 326 0381 ; BEGIN 
; 356 6398 EXTERNAL REGISTER 
: $3) B39 2 CCB : REF SFORSCCB_DECL; 
3 335 0396 ra 
: «4334 0397 ' Initialize Record processing level of abstraction. 
; aee 0398 ! Set pointer to current (LUBSA_BUF_PTR) and Last+1 
: 336 0399 ' (LUBSA_BUF_END) character position for user data in 
: 337 Bene ' output buffer 
: 339 $402 re 
: 340 0408 JSB_RECO (FORSSAA_REC_PRO + .FORSSAA_REC_PRO [.CCB CISBSB_STTM_TYPE] - ISBSK_FORSTTYLO + 1)); 
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2-058 1 4 34 1953):53 FORRTL.SRC FoRUbFUr 633; 31 - (3) 


; 398 


0 2 RETURN; 
; 399 0 


461 
462 1 END; ! End of FORSSUDF_WFO routine 


- TITLE F ORSSUDF UF FORTRAN Write Formatted UDF 
-IDENT \2-058\ 


.PSECT _FORSDATA,NOEXE, PIC,2 
00000 AA_OUT_FIX: 


B 16 
00010 AA_OUT_FLT: 
-BLK 64 
00000000 00050 CVT_INIT: 
-LONG 0 : 


-PSECT _FORSCODE,NOWRT, SHR, PIC,2 


44 00 00 00 00 00 00 80 02 01 81 00 00 00 80 00000 P.AAA: .BYTE 3128. 0, 0, 0, -127, 1, 2, -128, 0, 0, 0, -; 
00 €8 €8 £8 £8 E€8 E€8 E8 C7? 86 00 00 00 00 47 0000F yi 68, 71, 0,0, 0, 0, -102, “57, = : 
80 80 80 80 00 00 00 00 00 £9 £9 £9 E9 E9 E9 OOO1E 04,9. -26, -36, -24, -04, -26, -26, 0, - : 
80 80 80 80 00 00 00 00 80 00020 -23, 523, -23, -23, -23, -23, 0, 6, 6.0. -: 
0, -128,'-128; -128, -128, -128; 0: 0: 0: -: 
0; -128; -128; -128; -128 : 
00036 .BLKB 2 
20 20 20 20 00038 P.AAB: :ASCII \ \ ; 
00# 0003C DTP_TO_TYP: 
.BYTE 010] ; 
00 00046 BYTE 0 : 
01 00047 "BYTE 1 : 
00# 00048 BYTE  0C15] : 
02 00057 “BYTE é : 
03 00058 BYTE : 
WF ACT= P.AAA 
SPRCES= P-A 
EXTRN FORSSAA_REC_PRO 
“EXTRN FORSSAA-REC—P 
"EXTRN FORSSAA"REC PRO 
EXTRN FORSSFMT_INTRPO 
"EXTRN FORSSFMT~INTRP1 
~-EXTRN FORSSSIGNAL, FORSSS 1GNAL STO 
“EXTRN FORSCVT_F_TD, FORSCVT_F_TE 
TEXTRN FORSCVT-F-TF. FORSCVT +} “1G 
“EXTRN FORSCVT~D7TD, FORSCVT “p7TE 
“EXTRN FORSCVT-D-TF. FORSCVT—D-TG 
“EXTRN FORSCVT-G-TD. FORSCVT~G_TE 
“EXTRN FORSCVT-G-TF. FORSCVT~G_1G 
“EXTRN FORSCVT-H-TD. FORSCVT-H-TE 
“EXTRN FORSCVT-H-TF. FORSCVT-H-TG 
“EXTRN OTSSCVT“L-TL. OTSS$CVT-L-TO 
TEXTRN OTSSCVTTL-TI. OTSSCVTZL-T2 
50 FF71 CB 9A 00000 FORSSUDF_wFO:: 
MOVZBL -143(CCB), RO > 0403 
50 0000000060040 v0 00005 MOVL  FORSSAA_REC ~PROERO}. RO : 
0000000060040 16 00000 JSB FORSSAA~REC-PROLRO : 
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FORSSUDF _wWF 
2-058 


_FORSCODE + 0059 


Routine Base: 


1 


272 bytes, 


0463 


; Routine Size: 
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FORSSUDF _WF FORTRAN Write Formatted UDF Jo~genn 1386 90:33:15 AX-11 Bliss-32 V4. “248 
2-058 14-Sep-1984 12:32:52 FORRTL.SRCJFORUDF WF .B32;1 
; 40 0464 1 GLOBAL ROUTINE FORSSUDF_WF1 ( ! Format one user output element 
; 40 0465 1 ELEM_TYPE, ! Type code of user 1/0 List element 
> 404 0466 1 ELEM_SIZE, ! No. of addressable units in element 
; 405 0467 1 ELEM_ADR) ! Adr. of element 
; 406 0468 1 CALL_CCB NOVALUE = 
; 407 0469 1 
; 408 0470 1 !++ 
; 409 0471 1 ! FUNCTIONAL DESCRIPTION: 
; 410 oh , 1 
> 411 0475 1! FORSSUDF _WF1 formats a single user 1/0 List element. 
; tig 0474 1! and places it in the current output buffer, truncating 
s 61 0475 1! if necessary to fit. It and the format interpreter 
> 414 0476 1! (FORSSFMT_INTRP1) interprets all format codes until the 
> 415 0477 1! first 1/0 List element transmitting format code is : 
; 416 0478 1! encountered. It then continues executing format codes until 
; 417 0479 1! lookahead shows that the next format code would be a data 
3 ret Bees : transmitter or end-of-List type. 
: 420 0482 1! FORSSUDF _WFi is also called when the user 1/0 List 
> 421 0483 1! had no elements. This is indicated with .ELEM_TYPE=0 
3; 422 0484 1! FORSSUDF _WF1 and FORSSFMT_INTRP1 interpret all format 
: 423 0485 1! codes up to the first data formatting one, :, 
> 424 0486 1! or end of format. 
: 425 0487 1! 
; 426 0488 1 ! CALLING SEQUENCE: 
; 427 0489 1! é 
3 $58 Beet : CALL FORSSUDF _WF1 (elem_type.rlu.v, elem_size.rlu.v, elem_adr.rx.r) 
; 430 0492 1 ! FORMAL PARAMETERS: 
3 431 0493 1 | 
: 432 0494 1! ELEM_TYPE.rlu.v Type code of user I/O List 
; 433 0495 1! element. Form: ELEM_TYPE_x 
; 434 0496 1! x = B,W,L,WU,LU,F,D,FC or T.. 
; 435 0497 1! If zero, this is an end-of-Llist call. 
; 436 0498 1! ELEM_SIZE.rlu.v Size of user 1/0 List element 
: 437 0499 1! in addressable machine units 
; 438 0500 1! ELEM_ADR.rx.r Adr. of user I/0 List element 
: 439 0501 1! x =b, w, Ll, wu, lu, f, d, fe, 
: 440 0502 1! t. g. h, de or gc. 
3 441 0503 1! 
: «44 0504 1 ! IMPLICIT INPUTS: 
3; 44 0505 1! ; . ) 
3 444 0506 1! CCB Pointer to current logical unit block 
3; 445 0507 1! ISBSB_STTM_TYPE 1/0 statement type code - set by each 
; rr b205 ! } 1/0 statement initialization 
; 448 0510 1 ! The following ISB locations are set only by previous calls to 
: rch Bai} : FORSSUDF _WF{0,1}, i.e., are effectively OWN. 
; «451 0818 1! LUBSA_BUF _BEG Pointer to first char. position in 
; 45 0514 1! user data part of output buffer 
; «645 0515 1! LUBSA_BUF _PTR Pointer to next char. position 
3; 454 0516 1! in user data part of output buffer 
: «455 0517 1! LUBSA_BUF _HIGH Pointer to highest char. position 
3; 456 0518 1! written so far on any T format code 
; 457 0519 1! LUBSA_BUF _END Pointer to last+1 char. position 
; 458 0520 1! in user data part of output buffer 
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14-Sep-1984 32:52 FORRTL.SRCJFORUDS ar .B32;1 


ISB$V_DOLLAR Dollar sign seen in format for this 
record, if 1. Change cere segs 
control SP (space) to $, + to Null (0). 


' 

i 

' The fol Lowing ISB locations are set by the format interpreter 
ret ; (FORSSFMT_INTRP1) which this module calls: 
465 i ISBSA_FMT_PTR Pointer to next char. position 
466 : in user data pect of output buffer 
467 : Used only in H format. 
468 : ISBSW_FMT_W Field width (w) 
469 } ISBS$B_FMT_D No. of fraction digits (d) 
470 : ISBSB_FMT_E No. of exponent characters (e) 
ree ISBSB_FMT_P Signed scale factor (p) 
473 i IMPLICIT OUTPUTS: 
475 i ISBSA_FMT_PTR Pointer to next char. position 
476 / in compiled format character string 
ry Changed only for H format. 
479 i The following ISB locations are set only by prownews calls 
ast to FORSSUDF_WF{0,1}, i.e., are effectively OWN. 
482 LUBSA_BUF _PTR Pointer to next char. position 
483 in user data part of output buffer 
484 LUBSA_BUF _HIGH Pointer to highest char. position 
485 written so far on any T format coge 
486 ISB$V_DOLLAR Dollar sign seen in format for this 


record, if 1. Change carriage 
control SP to $, + to Null. 


FUNCTIONAL VALUE: 
NONE 
SIDE EFFECTS: 
SIGNAL_STOPs FORS_OUTSTAOVE (66="OUTPUT STATEMENT ey bee RECORD") 


' 
. 
' 
' 
. 
' 
' 
. 
' 
. 
J 
. 
‘ 
. 
J 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
le 
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497 if user pitempts o write beyond the end of the record buffer. 
498 SIGNALS FORS_OUTCONERR (63="OUTPUT CONVERSION ERROR") - 

499 overflowed field is filled with *'s. 

is SIGNALS FORS_FORVARMIS (61="FORMAT/VARIABLE-TYPE MISMATCH’) 

208 

50 BEGIN 

504 

505 EXTERNAL REGISTER 

506 CCB : REF SFORSCCB_DECL; 

507 

508 MAP , 

395 ELEM_ADR : REF VECTOR; ! element is call-by-reference 
511 GLOBAL REGISTER ; 

216 EL_SIZE = 10, ' Element size 

51 5 DT SEEN = 9 ' Data transmitter seen 
314 26 FMT_CODE = & : BLOCK (1, LONG); i Format code 
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LOCAL 
a : BLOCK (1, LONG], Action table entry for format code 


' 
a le Output buffer p 
DSC”: BLOCK (8, BYTE]; 
EL_SIZE = .ELEM_SIZE; 


'¢ 

! If ELEM_TYPE is zero, then we must be in end-of-list processing. 
! If so, set DT_SEEN to 1 so that we won't try executing a data 
transmitter. If not, set DT_SEEN to zero. 


IF .ELEM_TYPE EQL 0 THEN DT_SEEN = 1 ELSE DT_SEEN = 0; 


' 
! Perform loop beginning with a call to the format 

! interpreter and continue processing until we get 

' a format code for transmitting the user 1/0 List data 

' element (i.e., Q,A,L,0,2,.1,.F,.€,G,D) in which case perform 
' the output conversion and return to the user program. 

! For other formats which do output without reference to 

' the user 1/0 List, perform output formatting and continue 
loop (i.e., EOF, /, $. :, T. X, HD 


WHILE 1 DO 
14 
! Get next format code requiring output interpretation: 
; 1. If repeating an explicit format code, the code 
is simply obtained from the B_FMT_CODE field of the ISB. 
: 2. In other cases it is necessary to call FORSSFMT_INTRP1 
Dispatch on format code and select appropriate actions. 

BEGIN 


ca CISBSW_FMT_REP] GTR 1 AND .CCB CISBSB_FMT_CODE] LSSU _DA 


BEGIN 
FMT_CODE = .C 
ACT™= .WF_ACT 


IF _ .DT_SEEN 
THEN 


CB CISBSB_FMT_CODE); 
C.FMT_COBE) 


IF .ACT CWF_EOLST) THEN EXITLOOP; 
‘e CISBSW_FMT_REP) = .CCB CISBSW_FMT_REP) - 1; 
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FORSSUDF _WF FORTRAN Write Formatted UDF 16-Sep- 1:14 AX-11 Bliss-32 V4.0- Page 14 
2-058 14- ~tep- 198 99: 33: :52 PORRTL® SR aeironubr ur .64 31 ° (4). 
3; STs 0635 4 + 
; 574 $e 8 4 ' If DT_SEEN is true, then we only want to know if the next 
s $75 6 4 ' format code would transmit a data item. Rather than have 
>; 576 0638 4 ! the high overhead of calling the format interpreter, we 
s Sr7 0639 4 : can look ahead into the format for this information. We 
>; 378 0640 4 : can, t_ make a 100% determination, so if the format is not 
; or 0641 4 ' "EOLST' type, call the format interpreter anyway. 
; 580 Beg 4 ' This is a speed 4 ry If necessary, the code 
: 581 0645 4 ' between the “!**"’s can be removed with no functionality loss. 
4 28s 0644 4 !< | 
; 28° 0646 4 {ee 
; 585 0647 4 
; 586 0648 4 IF .DT_SEEN 
: 587 0649 4 
; 588 0650 5 BEGIN 
; 589 0651 5 
; 590 0636 5 LOCAL 
; 591 0653 5 P; ' Pointer into format 
; 39 0654 5 
; 0655 5 P = .CCB CISBSA_FMT_PTRI; 
> 594 0656 5 FMT_CODE = CHS$RCHAR (.P); ! Get next format code 
: 595 0657 5 FMT_CODE CV_FMT REPRE} =0; ' Clear bit for comparison 
: 596 0658 5 ACT = .WF_ATT CUFMT_CODE]; 
: 597 0659 5 ; 
; 598 0660 5 IF .ACT Cur _EOLsT? THEN EXITLOOP; ! End of List type 
; 599 0661 5 
3 0662 4 END; 
: 601 0663 4 
; 602 0664 4 lee 
; 603 0665 4 
3 0666 4 FORSSFMT_INTRP1 (); ' Call format interpreter. | 
: 605 0667 4 ' Implicit arguments are EL_SIZE 
; 606 0668 4 ' and DT_SEEN. Implicit result 
; 607 0669 4 ! is FMT_CODE. 
; 608 0670 4 
; 609 0671 4 ACT = .WF_ACT C.FMT_CODE]; 
: 610 0672 4 
; 611 0673 4 '+ 
; 612 0674 4 i If DT_SEEN was set, and the next format character was 
: 613 0675 4 i an “end of List’, the format interpreter returned a format 
; 614 0676 4 i code of zero, without evaluating VFE's or advancing the 
> 615 0677 4 i pointer. Therefore, if we have now seen a data transmitter 
; 616 0678 4 i and this is an "end of List’ format code, we can exit. 
3; 617 0679 4 ie 
; 618 0680 4 
; 619 0681 4 IF .DT_SEEN AND .ACT CWF_EOLST] THEN EXITLOOP; 
; 620 0682 4 
; 621 068 ; END; 
; o¢¢ 0684 
; 6 0685 ; ‘+ 
: 624 0686 ' Check for field extending beyond end of cutput buffer. 
; os? 0687 ' SIGNAL_STOP FORS_OUTSTAOVE if the buffer is exceeded. 
: 626 688 ' Advance buffer pointer in ISB. 
: 627 689 le 
: O58 0690 
3 629 0691 BUF _PTR = .CCB CLUBSA_BUF _PTR); 


ee ee ee ee ee ee ee ee ee ee Lee S| om 
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0692 FMT_W = .CCB CISBSW_FMT_W); 
IF .ACT CWF_CHECKW) 
THEN 


BEGIN 
CCB CLUBSA_BUF_PTR] = .BUF_PTR + .FMT_W; 
1F (C8 CLUBSA_BUF_PTR] GTR .CCB CLUBS$A_BUF_END]) 


PAPA AAAAAO 
OWOONOUSWN—O 


WAw 


BEGIN 
FORSSSIGNAL_STO (FORSK_OUTSTAOVE); 
RETURN; 
END; 
+ 


i FILL with blanks between high water mark and here, if 
i here’ is higher. 


LUBSA_BUF HIGH]; 
TR GTRA .T) 


HSDIFF (.BUF_PTR, .1)) FROM 1 TO 8 OF 
(8) 


ao 


N 
CHSMOVE ( 
CHSMOVE ( 


oe 
>. 

nm 
vv 
>> 
On 
mem 
mn 


[4] : | 
IN 
= CHSMOVE (4, SPACES, .T); 
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+ 
No action required on format code (e.g. Colon) 


C1] : 


| 
: EOF,SLS 

! Write record for end of format or / format codes 

: Do per-record formatting and write record. Note that 

! we now allow more than one record on direct writes. 

! Initialize all output buffer pointer for next record 

! in this 1/0 statement, e.g., ISBSA_BUF_{BEG,PTR,END,HIGH} 
;_and ISBS$V_DOLLAR = 0. 


HPA AAYIGIGIVIVII EE & EE = 


oO 
NNN 
CODNAN EWN ODDIE 


DO_WRITE (FORSSAA_REC_PR1 + .FORSSAA_hEC_PR1 [.CCB CISBSB_STTM_TYPE] - ISBSK_FORSTTYLO + 1). 
C2] : 


‘G0 Go OD OD G9 Cd Cd Cd Cd CO CD CD CD CD COU CD CD CD CD CUCU OD 
PMMPONMNOPoNONONS 2 2 SS OOOO 


SBVO NOME OOO NAME ODO Ee 


! 
' DLR ; P ; : 

! Dollar sign: set dollur sign encountered in this 
! record flag (ISBSV_DOLLAR). Checked when record 

! written to determire whether to change 

carriage control fcr terminal. 


CCB CISBSV_DOLLAR] = 1; 
(3) : 


‘4+ 
No longer used. 


0 G0 00 00 00 C0 C0 00 G0 0D 0D CD CD CD 
BEF EAN 


(4] : 


Co G0 00 Cd C0 00 0D CO 
Ft a 


le 
nX: output n spaces (n in FMT_W) 


BLANK_FILL (.FMT_W, .BUF_PTR); 
(5) : 


‘+ 
No longer used. 


PPT PETE TETLILILILTLILiLreieie rere III IE TETETEOC ISIE IL IP TEILILITITTILILiLreieieieTe te 
~ 
~“ 

Cae ee we we we ee we wl we) oe) wl wl wl oe) oe) ole) ol el eel ol ele) ole ol el ol ol el ol ololelololololeleoleloleloleleolololeleololololo}) 


MO ODWO NEW SO ODNOUE WIN — O OONOU Ew — 
AAAIAIAIAIAIAI NIAAA ANA AAI ANNAN NINN NANIWIN AN ANNIAI ANNA AANA 


2000000 00 00 00 0000 00 G0 0D 0D 
PQA 
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; 801 0863 (6) : 
; 80 0864 
; 80 0865 1+ 
; 804 0866 ! Q format = ignore on output but use up 1/0 List element 
> 805 0867 ! Just exit loop and return to user program 
; 806 0868 le 
; 807 0869 
; 808 0870 DT_SEEN = 1; 
; 809 0871 
; 810 pers (7) : 
> 811 0873 3 
; oi¢ 0874 ; 4 
3 Biz + tht nA (alphanumeric) and nH (Hollerith): 
js $815 0877 : ! For nA, output right-justified string in field. 
: 816 0878 3 ! Insert leading spaces or truncate on right as 
$ ait +44 : necessary. Then exit loop and return to user program. 
; 819 0881 3 ' For nH, copy n (FMT_W) characters from format to 
: 820 0882 ; ! output buffer. Update format character pointer. 
; 821 0883 !- 
; 822 0884 3 
; 823 0885 4 BEGIN 
3; 824 0886 4 
; 825 0887 4 LOCAL 
; 826 0888 4 ELEM_PTR; 
: Ber 0889 4 : 
> 828 0890 4 IF .FMT_CODE EQLU _A ! Alphanumeric 
; 829 0891 4 
; 830 0892 5 BEGIN 
s 83) 0893 5 
: 832 0894 5 ELEM_PTR = .ELEM_ADR; 
; 833 0895 5 IF .EL_SIZE LSSU~.FMT_W 
> 834 0896 5 THEN 
; 835 0897 5 
; 836 0898 5 4 : 
: 837 0899 5 ! User 1/0 List element is smaller than 
; 838 0900 5 ! field width w (FMT_W). Fill with 
; 839 0901 5 ' Leading spaces. 
: 840 0902 5 !- 
: «841 0903 5 
3; «84 0904 6 BEGIN 
3 84 0905 6 BUF_PTR = BLANK_FILL (.FMT_W - .EL_SIZE, .BUF_PTR); 
: 844 0906 6 FMT_W = .EL_SIZE; 
> 845 0907 5 END; 
: 846 0908 5 DT_SEEN = 1; 
; 847 0909 5 ENB 
; 848 0910 4 ELSE ! Hollerith 
3 849 0911 5 BEGIN 
; 850 0912 5 ELEM_PTR = .CCB CISBSA_FMT_PTRI; 
; 851 913 5 CCB CISRSA_FMT_PTR] = [CCB”CISB$A_FMT_PTR] + .FMT_W; 
3 S26 914 4 END; 
; 8 915 4 
: 854 319 4 '¢ 
; «4855 917 & ! Copy the correct number of bytes. Use non-character 
§ $28 Bats : moves if reasonable. 
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uur 


.FMT_W FROM 0 10.8 OF 
SET 


EGIN 
COPY_LONG_A 
COPY-WORD_A 
ENDS “BYTE_A 


BEGIN 
COPY _WORD_A 
ag “BYTE_A 
BEGIN 
COPY_LONG_A 


COPY_WORD_A 
END; 


BEGIN 
COPY_WORD_A 


COUTRANGE] : 


torr a at ot ot ot a or ot eh al al et et eh ah hh ee ee eh he ek ah a al ee ee ed al a al oP oP ol Ola eal ead oP oe a eal ear ar a es OP oe oe oe oe 


Be Se Be Se Be Be Be Be Oe Se Be Be Be Be Be Be Be Se Se Se Ge Se Be FH Se Se Ge Ge Se Se Oe Se Se Se Se Se Se Oe Oe Oe Se SH SHS Se SESE SESH Oe Be HOH Oe Se Beas 


BEGIN 
COPY_QUADA (ELEM.PTR, 


Se Se Be Se Se Se Be Se Se wee SH Se Se Se Se Se Be Se Se Se Se Se Se SH Se Se Se BH Se Se Be ese Se Se SH Se Se Se Se oe Oe Be oe 


: MOVE_CHAR (.FMT_W, .ELEM_PTR, 
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a nae (8) 
; 319 $378 
; 918 0980 + 
>; 919 0981 ! ALL integer formats (L,0,1,2) outp 
3 980 4 ‘ ap theca ¢ data at” otf If user 1/0 (ast “element is not integer (B,W,L,WU,LU), 
: ' an 
; 922 0984 3 ' SIGNAL PORS. FORVARMIS mab {=" FORMAT VARIABLE-TYPE MISMATCH’). 
> 923 0985 3 ! Then exit loop and return to user program. 
> 924 0986 : le 
; 925 0987 
; 988 0988 4 BEGIN 
: 927 0989 4 
: 928 0990 4 LOCAL : , é 
; 362 0991 4 ; ! No. of addressable units in user 1/0 List 
; 930 0992 4 
: 931 0993 4 ' element. 
3 9ae 0994 4 
3; 935 0995 4 + 
> 934 0996 4 ' Compensate for extended format codes. 
; 935 0997 4 le 
; 936 0998 4 
3; 937 0999 4 IF .FMT_CODE GEQU xO 
; 938 1000 4 THEN 
; 939 1001 5 FMT_CODE = .FMT_CODE - (_L + (XO = _0)) 
; 940 1002 4 E 
> 941 1003 5 BEGIN 
: 942 1004 5 FMT_CODE = 1_t0 *. awe 
3 943 1005 5 CCB" CISB$B_F 5 = ! Digits in integer part 
3 944 1006 4 END; 
; 945 1007 4 
; 946 1008 5 IF .ELEM_TYPE GEQU DSCS$K_DTYPE_Q AND (.FMT_CODE EQLU (_I - _L) OR .FMT_CODE EQLU (_L = _L)) 
> 947 1009 4 THEN 
; 948 1010 5 BEGIN 
3; 949 1011 5 CCB CISB$B_ERR_NO] = FORSK_FORVARMIS; 
: 950 1012 5 S = ZUPVAL; ! treat as if long 
; 951 1013 5 END 
; 952 1014 4 ELSE 
3 933 1015 4 S = .EL_SIZE; 
3: «9546 1016 4 
: 955 1017 4 '¢ ; : 
; 956 1018 4 ' Call eppre riate conversion routine. If it doesn't fit, 
: 957 1019 4 ' signal _OUTCONERR. 
; 958 1020 4 te 
; 959 1021 4 
; 960 10 § 4 IF NOT (. 0 Pa a FIX C.FMT coe? (.ELEM_ADR, DSC, .CCB CISBSB_FMT_DJ, .S, 
; 961 102 4 158$8 _OUT_FCAGS)) 
: 366 1024 4 THE 
: 96 1025 4 CCB ase i = FORSK_OUTCONERR; 
: 964 1026 4 
; 965 1027 4 DT_SEEN = 1; 
3: 966 1028 3 ENB; 
; 967 1960 
: 968 1030 (9) : 
: 969 1031 
; 970 1038 '+ 
s 971 103 i Determine correct conversion routine for datatype. 
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3 are 1034 ! If value is not floating, signal FORS_FORVARMIS. 
s 97 1035 ! Set scale factor and number of integer digits 
: 974 1036 ! appropriately and convert. 
; Tr 1037 le 
; 976 1038 
3 977 1039 4 BEGIN 
; 978 1040 4 
: 979 1041 4 LOCAL 
; 980 1006 4 SCALE ! True scale factor | 
: 381 1043 4 INT_DIGITS; i Number of integer digits 
H Se 1044 4 
; 1045 4 or  s 
> «984 1046 4 ! Adjust format code for extended formats and offset 
; 985 1047 4 : to first floating format code. Also set flag | 
> 986 1048 4 ! indicating that exponent field width overflow is an 
> 987 1049 4 ! error for extended formats. 
; «4988 1050 4 le 
> 989 1051 4 
; 990 1936 4 IF_.FMT_CODE GEQU XE 
: 991 1053 4 THEN 
; 992 1054 5 BEGIN 
> 993 1055 § FMT_CODE = .FMT_CODE - (3 + _F); 
> 994 1056 5 CCB CISBSV_ERR_OFLOJ) = 1; 
s 95 1057 5 END 
; 996 1058 4 
3; 997 1059 5 BEGIN 
; 998 1060 5 FMT_CODE = .FMT_CODE - _F; 
: 999 1061 5 CCB’ CISBSV_ERR_OFLO) = 0; 
; 1000 1066 4 END; 
; 1001 1063 4 
3 1002 1064 4 
; 1003 1065 4 1? : 
; 1004 1066 4 : Now do the conversion, Set locals for scale factor and 
; 1005 1067 4 ! number of integer digits based on the format code. 
; 1006 1068 4 le 
; 1007 1069 4 
; 1008 1070 5 IF .FMT_CODE EQLU (_F = _F) ! _F was subtracted above 
; 1009 1071 4 THEN 
3; 1010 1072 5 BEGIN 
3; 1011 1073 5 SCALE = .CCB CISBSB_FMT_PJ; 
3 Org 1074 5 INT_DIGITS = 0; 
3; 101 1075 5 END 
3 1014 1076 4 
3; 1015 1077 5 BEGIN 
3; 1016 1078 5 SCALE = 0; 
3 1017 1079 5 INT_DIGITS = .CCB CISBS$B_FMT_PI; 
; 1018 1080 4 END; 
3; 1019 1081 4 
; 1020 1086 & '+ : ? 
: 1021 10835 4 ! Choose proper conversion routine and do the conversion. 
; 1058 1084 4 ! If not a floating type, then use F_floating conversion. 
: 19s 1085 4 le 
3: 1024 1086 4 
3; 1025 1087 5 BEGIN 
3 1026 1088 5 
3; 1027 1089 5 LOCAL 
: 1028 1090 5§ CVT_TYPE; 


er er? ee es er 


RETURN; 
END; 
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num 


3; 1061 11 ‘ 1 ROUTINE DO_WRITE ( ' do per-record formatting and write record 
; 196 11 1 FORSSREC_xn) ' adr. or record processing routine 
; 106 1124 (1 : JSB_DO_WRITE NOVALUE = 

: 1064 1125 1 !¢4 

3; 1065 1126 1 !FUNCTIONAL DESCRIPTION: 

: 1066 1127 1! 

: 1067 1128 1! DO_WRITE is a local routine which performs any per-record 

: 1068 1129 1! formatting (as distinguished from per 1/0 List element formatting) 

3; 1069 1130 1! and then output the record by calling the appropriate 

; 1070 1131 1! record erecessing routine goo on the statement on 

3 1071 11 ¢ 1! (ISBSBSTTM_TYPE) and formal parameter FORSSREC_xn whic 

3 126 i zz is either 1) FORSSREC_x1 if this is not the last record 

; 107 1134 1! of the I/o statement of (2) FORSSREC x9 if the is the last | 

3: 1074 1155 1! record of the I/0 statement, i.e., this is the end of I/0 List call. 
; 1075 1136 1! Note: DO_WRITE is also called directly from FORSSUDF_WF9 on end of 

: 1076 1137 1! 1/0 List if at end of format too. Therefore, all end of 

; 1077 1138 1! List processing should be kept here in DO_WRITE. 

; 1078 1139 1! 

: 1079 1140 1 ! CALLING SEQUENCE: 

: 1080 1141 1! 

; 1081 142 63 JSB DO_WRITE (RO=for$$rec_xn.s.ar) 

: 1082 1143 1! 

; 1083 1144 1 ! FORMAL PARAMETERS: 

: 1084 349 3 3 

3 1085 1146 1! FORSSREC_xn.s.ar Adr. of record processing routine 

3; 1086 1147 1! 

3; 1087 1148 1 =! IMPLICIT INPUTS: 

: 1088 1149 1! ; : . 

; 1089 1180 1! CCB Pointer to current logical unit block 

: 1090 03) -9 3 : ; 

3; 1091 1152 1! The following locations are set only by previous calls to 

: 1096 AY : FORSSUDF _WF{0,1}, i.e., are effectively OWN for this module. 
; 1094 199 3 ¢ LUBSA_BUF _BEG Pointer to first char. position in 

: 1095 se 3 8 user data part of output buffer 

3; 1096 57 7! LUBSA_BUF _PTR Pointer to next char. position 

; 1097 1158 1! in user data part of output buffer 

3; 1098 1159 1! LUBSA_BUF _HIGH Pointer to highest char. position 

; 1099 11640 1! written so far on any T format code 

3; 1100 1161 1! LUBSA_BUF _END Pointer to Last+1 char. position 

; 1101 1108 1% in user data part of output buffer 

3; 1102 1165 1! ISB$V_DOLLAR Dollar sign seen in format for this 

3: 1103 1164 1! record, if 1. Change carriage 

3 1104 1165 1! control SP to $, + to Null. 

: 1105 1166 1! 

3; 1106 1167 1°! IMPLICIT OUTPUTS: 

3; 1107 1168 1! . ; ; 

; 1108 1169 1! The fot outa Locations are set only by previous calls 

3 4 1309 : to FORSSUDF_WF{0,1}, i.e., are effectively OWN for this module. 

31111 1176 & LUBS$A_BUF _BEG Pointer: set to first char. position 

3 1112 1175 1! of next output buffer to be filled. 

7 1113 1174 1! LUBSA_BUF _PTR Pointer: set to first char. position é 
3.1114 bie ee in user data part of output buffer to be filled 
3; 1115 7m 2 LUBSA_BUF _HIGH Pointer: set to first char. position : 
; 1116 tice B. of user data part of output buffer to be filled 
3 1117 1178 1! ISB$V_DOLLAR Set to 0 
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BEGIN 


EXTERNAL R 


EGISTER 
CCB: R 


GIST 
EF SFORSCCB_DECL; 


'¢ 
i 1) IF $ seen in format yr current record (ISB$V_DOLLAR=1), 
i and carriage control Hs FORTRAN, and buffer contains at least one 
i character, Fhenge carri age control mparen ter space to $ 
i or + to ayit for terminal dialog no 
i and/or LF* 
IF .CCB CISB$V_DOLLARJ 
IF .CCB CLUBSV_FTNJ 
IF .CCB CLUBSA_BUF_END] - .CCB CLUBSA_BUF_BEG] GTR 0 
BEGIN 
IF CHSRCHAR (.CCB CLUBSA_BUF_BEG]) EQL %C' * THEN CH_WCHAR (.CCB CLUBSA_BUF_BEG]) = %C'S$'; 
IF CHSRCHAR (.CCB CLUBSA_BUF_BEG]) EQL %C'+* THEN CH_WCHAR (.CCB CLUBSA_BUF_BEG]) = 0; 


END; 


POPOROPO POPUP ts Ss ls 
OOVCOCCCOCOCOCOOOOOO OOO WOWOWOMdOMoMcc-~ 


NOU EWN @ O ODNAMU EWN (9 DOONAN E WN 9 OONAUE AWN" OOONAUEWN—O” 


'¢ 


'¢ 
i 2) Set buffer pointer to the high water mark. The REC level will 
t then fill with blanks from there to the end of the buffer. 


CCB CLUBSA_BUF PTR] = gts CLUBSA_BUF _HIGH]; 
JSB_REC1 (TFORSSREC_xn); 

'¢ 
i 3) Initialize beginning and highest pointer 

i a format) and dollar-sign-seen-this-record flag 


CCB CLUBSA_BUF_BEG) = .CCB CLUBSA_BUF PTR); 
CCB A~BUF~HIGH] = .CCB CLUBSA_BUF_PTR); 
su 4. 


LUBS 

1SB8V “DOLLARS 
URN; ' Return from DO_WRITE routine 
END; ! End of DO_WRITE routine 


Be Se Oe Be Be Oe Be Be Be Be Ge Ge Be Se Ose Ge SESH SESH Se Be we BH Ge SESH SE Se SESH SESH SESE Se See Se Se SSeS Se Se Sse tetss 
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me a a et a “a = an SS = ot a ot es 2 Ss ss Ss SS SS 2 Yt YS 
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NOPONMONONONoNONy OO OO OS "OO 


1E 96 AB 02 £1 00000 DO_WRITE: 
BBC " -106(CCB), 2% 
AO AB 95 00005 TSTB = = 94 (CCB) 
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GLOBAL ROUTINE FORSSUDF _WF9 ! Formatted output - end of 1/0 List call 
: JSB_UDF9 NOVALUE = 
++ 
FUNCTIONAL DESCRIPTION: 


' 
i 
; FORSSUDF _WF9 performs end of 1/0 List output formatting. 
ALL format codes are processed until a data transmitting 
i 
i 


Be Se Se Be Oe ee Be Bee Oe Oe Oe Be Be Be ee Se Be Be Se Oe SH Se Se FHS ee Bee Oe Oe Oe Be Se Se Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se ee Se Se Ge eae 


>; 1169 1229 1 
; 1170 1230 1 
Si 
: 1198 1 g 1 
> 1174 1234 1 
3: 1175 1235 1 
3; 1176 1236 1 
3 1177 \s3f 1 format code is encountered (or colon) or end of format. 
3; 1178 1238 1 
3 1179 1239 1 ! CALLING SEQUENCE: 
; 1180 1240 1: 
3 1181 1241 1! JSB FORSSUDF_WF9 () 
3 1186 1 rs 2 
3; 118 124 1 ! FORMAL PARAMETERS: 
> 1184 1244 1! 
js 1185 12465 1! NONE 
3; 1186 1246 1! 
3: 1187 1247 1 ! IMPLICIT INPUTS: 
: 1188 1248 1! 
3 1189 1249 1! See FORSSUDF _WF1 
3 1190 1250 1! 
3: 1191 1251 1! 
3 1195 1$2¢ 1 ! IMPLICIT OUTPUTS: 
3; 119 12553 1! 
3 1194 1254 1! See FORSSUDF _WF1 
3 1195 1255 1! 
3 1196 1256 1 ! FUNCTION VALUE: 
3 1197 ie 
3: 1198 1258 1! NONE 
3; 1199 1259 1! 
; 1200 1260 1 ! SIDE EFFECTS: 
: 1201 1261 1! 
3 4 1608 1! See FORSSUDF _WF1 
: 120 1263 1 !-- 
3: 1204 1264 1 
; 1205 1265 2 BEGIN 
: 1206 1266 2 
: 1207 1267 2 EXTERNAL REGISTER 
: 1208 1$08 2 CCB : REF S$FORSCCB_DECL; 
: 1209 1269 2 
: 1210 1270 '¢ 
3; 1211 1271 ! If there are no items in 1/0 List, current format code is 0. 
: sig 1576 ! Call data transmit entry point with element type of 0 as 
3 ter 127 ! a flag. Return as soon as a data transmitting format code, 
3 1214 1274 ' colon, or End of Format code is encountered. 
3 1215 1275 l= 
; igi¢ 1276 
3: 121 1277 IF .CCB CISBSB_FMT_CODE] EQL 0 THEN FORSSUDF_WF1 (0, 0, 0); 
$ 1st8 1278 
3 1219 1279 '¢ : . 
3: 1220 1280 ' Do the final write 
3 \$$) 1383 = 
; 1558 12 4 DO_WRITE (FORSSAA_REC_PRO + .FORSSAA_REC_PRO C.CCB CISBSB_STTM_TYPE] = ISBSK_FORSTTYLO + 1)); 
; 1ssé \see RETURN; ; 
3; 1225 1285 1 END; ! End of FORSSUDF_WF9 Routine 


| 
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_PRO 
PR 


VAX-11 Bliss<-32 V4.0-742 
RO 


CFORRTL.SRCIFORUDFWF .B32;1 


=113(CCB) 
ORSSUDF_WF1 
CCB) 
AA_REC 
AA-REC— 
ITE 


STB 


19 251: 
19 


NeTOtowe 
—fr-O4n000- 


1 
$ 
S 
AB 95 00000 FORSSUUY ret 
$ 


BF 

7 

00600 

00600 
_FORSCODE + 0420 


Routine Base: 


1 


37 bytes, 


FORTRAN Write Formatted UDF 
1286 


FORSSUDF _WF 
2-058 
; Routine Size: 


14 
FORSSUDF _WF FORTRAN Write Formatted UDF 1$-Se 1984 00:51:14 AX-11 Bliss-32 V4.0-74 Page 32 
2-0 12286874382 9533:83 FORRTL.SRC FORUDFUF 283951 3 
ROUTINE BLANK_FILL ( ! Fill a string with blanks 
LEN, ! FILL Length 
ADDR) ! Buffer address 


oe 
FUNCTIONAL DESCRIPTION: 


BLANK FILL fills a string with blanks. It is identical to 

a CHSFILL with a first argument of 2C(' '. A separate called 
routine is used so that registers RO through R5 are free in 
the calling routine. 


CALLING SEQUENCE: 


OOOOOOOOOOOMWMo 


DWONAMUEWN — O OONAU EWN OO OONAUESWN (OC ONAUESWWN—"OOON 


pointer.rlu.v = BLANK_FILL (len.rlu.v, addr.wbu.r) 
FORMAL PARAMETERS: 
Len Number of bytes to 7 Pt 


! 

i 

i 

| 

' 

i 

i 

addr Address of string to fil 
{ IMPLICIT INPUTS: 

NONE 

i IMPLICIT OUTPUTS: 

NONE 

| FUNCTION VALUE: 

The address of the nex. byte past the blank-filled string. 
i SIDE EFFECTS: 

: NONE 


'e¢ 


ce ee ee et ee ee ee ee el eel el cl el eel el cel el el el el el cel cl cl el eel eel el cl cell cael cel el cel el 
ON i a ed od ed od 


SAAAAAAAAOOOMMIMUUINNTTUT 
ee ee ee ee ee ee ee ee eee 


WAWNWAAAAWNNWNANAANN NNN WNANANAWWWNinonononononononerornone non 


RNMMNMNNINMNNN 3 3 2 SS SS SH COCO OCOCOCOO 


SOONAUEWN $9 OONOUS WHO 


BEGIN 
> CHSFILL (2C* ", .LEN, .ADDR); 


003C 00000 BLANK_FILL: 


-WORD Save R2,R3,R4,R5 ; 1287) 

04 Ac 20 6E og 20 2€ 99002 MOVCS #0, (SPS, #32, LEN, @ADDR ; 1328 | 
50 83 0 OOOOA MOVL = R3,_ RO ; 

04 00000 RET ; 1329 


Be Be Se Oe Oe Oe Be Se Se Be Be Oe Be Se Be Se He Se SH Se He Oe Se SEH Se Be SH Oe Oe SH SH Se Oe SH Se Se SESH Se Se Se Se Se Oe Se Se Oe Se ee SESH SH Be Be oe 


; Routine Size: 14 bytes, Routine Base: _FORSCODE + 0452 


— 


So aod > Megane adic etncaeeioa ea 12:32:53 EPOantussme Sronube ur 650: 1 sol 


14 
$$ FORTRAN Write Formatted UDF 16-Sep-1984 00:33:18 AX-11 Bliss- 
58 14-Sep-1984 12:32:52 FORRTL.SRCJF 
3 iste 1330 1 ROUTINE MOVE_CHAR ( ' Move characters 
2: ter 1331 1 ' FILL Length 
; iste 1 ¢ 1 SOURCE, ! Source address 
> 1275 1 1 DEST) ! Destination address 
; 1276 1334 1 : NOVALUE = 
3 iste 1335 1 
; 1278 1336 1 !++ 
; 1279 1337 1 =! FUNCTIONAL DESCRIPTION: 
; 1280 bt) ae 
>; 1281 1339 1! MOVE_CHAR moves characters from one string to another. It is 
> 1282 1340 1! identical to CHSMOVE except that it does not return a value. 
> 1283 1341 1! A separate called routine is used so that registers RO through 
> 1284 1366 7 R5 are free in the calling routine. 
3 1285 1343 1! 
; 1286 1344 1 ! CALLING SEQUENCE: 
>; 1287 1345 1! 
> 1288 1346 1! CALL MOVE_CHAR (Len.rwu.v, source.rbu.r, dest.wbu.r) 
; 1289 1347 1! 
>; 1290 1348 1 ! FORMAL PARAMETERS: 
>; 1291 1349 1! 
; 1292 1350 1! Len Number of bytes to move. 
: 1293 too) 9 f source Address of string to move from. 
: 1294 1352 1! dest Address of string to move to. 
: 1295 as 2 
3; 1296 1354 1 ! IMPLICIT INPUTS: 
3 1297 1355 1! 
; 1298 1396 7 ! NONE 
3; 1299 1357 1! 
; 1300 1358 1 ! IMPLICIT OUTPUTS: 
; 1301 1359 1! 
: 1302 1360 1! NONE 
; 1303 1361 1! 
3 1304 1306 1 ! FUNCTION VALUE: 
; 1305 1365 1! 
; 1306 1364 1! NONE 
; 1307 1365 1! 
: 1308 1366 1 ! SIDE EFFECTS: 
; 1309 1367 1! 
; 1310 1368 1! NONE 
3; 1311 1369 1! 
3; 1312 1370 1 
3 1313 1371 1 !++ 
3 1314 1372 2 BEGIN 
: 1315 1373 2 CHSMOVE (.LEN, .SOURCE, .DEST); 
; 1316 1374 1 END; 


003C 00000 MOVE_CHAR: 
.WORD 
AC 28 00002 mOvc3 
4 00009 RET 
_FORSCODE + 0460 


Save R2,R3,R4,R5 


oc 3=«6BC 08 BC 04 LEN, @SOURCE, @DEST 


Routine Base: 


; Routine Size: 10 bytes, 


32 V4.0-74 
ORUDF WF .B32;1 


Page 34 
. (8) 


F 14 
FORSSUDF _WF FORTRAN Write Formatted UDF 16-Sep-1984 00:51:14 AX-11 V4.0-74 P 35 
2-058 1o88b-1384 12:32:55 — ERORRTL SRE SFORUDFUF .039;1 29° (B) 


1376 


13% 1 END ! End of FORSSUDF_WF Module 
1377 0 ELUDOM 


PSECT SUMMARY 


: Name Bytes Attributes 
: _FORSCODE 1130 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
> _FORSDATA 84 NOVEC, WRT, RD *NOEXE, NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
ae Re ied Oo ode eh eee Syabol$ scoeeee= Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 1 0 581 00:01.1 
3 _$255$DUA28:CFORRTL. OBJ JFORLIB.L32: 1 711 210 29 52 00:00.5 
3 ~$255$DUA28:CFORRTL.OBJIRTLLIB.L32;1 36 0 0 8 00:00.1 
| 
; COMMAND QUALIFIERS | 
: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:F ORUDF WF /OBJ=OBJ$:FORUDFWF MSRC$:FORUDF WF /UPDATE=(ENHS$: F ORUDF WF ) | 
; Size: 1041 code + 173 data bytes 


; Elapsed Time: a St 
; Lines/CPU Min: 3880 

3 Lexemes/CPU-Min: 17175 

3 peneey Used: 353 pages 
; a 


; Compilation Complete 


QUIPMENT | 
ITAL AND PR 


o 
er 
> 
wn 
= 
> 
~ 
=< 
Cc 
> 
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